home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / music / omdpt123.lha / OMED_PT123.lzx / rexx / delnotecmd.omed < prev    next >
Text File  |  2001-07-10  |  419b  |  21 lines
  1. /* Delete note+cmd with space - Case 28-11-95 */
  2. address OCTAMED_REXX
  3. options results
  4. 'op_get space var space'
  5. if space = 0 then do
  6. 'op_get advline var advline'
  7. if advline = 0 then do
  8. 'ed_clearnotecmd note cmd'
  9. exit
  10. end
  11. if advline = 2 then do
  12. 'ed_clearnotecmd note cmd'
  13. exit
  14. end
  15. end
  16. 'op_set space off'
  17. 'op_get spaceval var spaceval'
  18. 'ed_clearnotecmd note cmd'
  19. 'op_set space on'
  20. 'ed_advanceline LINES' spaceval-1 'down'
  21.